﻿Public Class BEmuestras
#Region "Declaración de variables"

    Private codMuestra As Integer
    Private fecIngreso As Date
    Private observaciones As String
    Private fila As Integer
    Private columna As Integer
    Private codCrioBox As Integer
    Private codPosicion As Integer
    Private edad As Integer
    Private tejidoNormal As Boolean
    Private codEstado As Integer
    Private codDpto As Integer
    Private codOrgano As Integer
    Private codDiagnostico As Integer
    Private codProtocolo As Integer
    Private codPaciente As Integer
    Private codPersonal As Integer
    Private vih As Boolean

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pCodMuestra As Object, _
            ByVal pFecIngreso As Object, _
            ByVal pObservaciones As Object, _
            ByVal pFila As Object, _
            ByVal pColumna As Object, _
            ByVal pCodCrioBox As Object, _
            ByVal pCodPosicion As Object, _
            ByVal pEdad As Object, _
            ByVal pTejidoNormal As Object, _
            ByVal pCodEstado As Object, _
            ByVal pCodDpto As Object, _
            ByVal pCodOrgano As Object, _
            ByVal pCodDiagnostico As Object, _
            ByVal pCodProtocolo As Object, _
            ByVal pCodPaciente As Object, _
            ByVal pCodPersonal As Object, _
            ByVal vih As Object)

        Me._CodMuestra = pCodMuestra
        Me._fecIngreso = pFecIngreso
        Me._observaciones = pObservaciones
        Me._fila = pFila
        Me._columna = pColumna
        Me._codCrioBox = pCodCrioBox
        Me._codPosicion = pCodPosicion
        Me._edad = pEdad
        Me._tejidoNormal = pTejidoNormal
        Me._codEstado = pCodEstado
        Me._codDpto = pCodDpto
        Me._codOrgano = pCodOrgano
        Me._codDiagnostico = pCodDiagnostico
        Me.codProtocolo = pCodProtocolo
        Me.codPaciente = pCodPaciente
        Me._codPersonal = pCodPersonal
        Me._vih = vih

    End Sub
    Public Property _vih() As Boolean
        Get
            Return vih
        End Get
        Set(ByVal value As Boolean)
            vih = value
        End Set
    End Property

    Public Property _CodMuestra() As Integer
        Get
            Return Me.codMuestra
        End Get
        Set(ByVal value As Integer)
            Me.codMuestra = value
        End Set
    End Property

    Public Property _fecIngreso() As Date
        Get
            Return Me.fecIngreso
        End Get
        Set(ByVal value As Date)
            Me.fecIngreso = value
        End Set
    End Property

    Public Property _observaciones() As String
        Get
            Return Me.observaciones
        End Get
        Set(ByVal value As String)
            Me.observaciones = value
        End Set
    End Property

    Public Property _fila() As Integer
        Get
            Return Me.fila
        End Get
        Set(ByVal value As Integer)
            Me.fila = value
        End Set
    End Property

    Public Property _columna() As Integer
        Get
            Return Me.columna
        End Get
        Set(ByVal value As Integer)
            Me.columna = value
        End Set
    End Property

    Public Property _codCrioBox() As Integer
        Get
            Return Me.codCrioBox
        End Get
        Set(ByVal value As Integer)
            Me.codCrioBox = value
        End Set
    End Property

    Public Property _codPosicion() As Integer
        Get
            Return Me.codPosicion
        End Get
        Set(ByVal value As Integer)
            Me.codPosicion = value
        End Set
    End Property

    Public Property _edad() As Integer
        Get
            Return Me.edad
        End Get
        Set(ByVal value As Integer)
            Me.edad = value
        End Set
    End Property

    Public Property _tejidoNormal() As Boolean
        Get
            Return Me.tejidoNormal
        End Get
        Set(ByVal value As Boolean)
            Me.tejidoNormal = value
        End Set
    End Property

    Public Property _codEstado() As Integer
        Get
            Return Me.codEstado
        End Get
        Set(ByVal value As Integer)
            Me.codEstado = value
        End Set
    End Property

    Public Property _codDpto() As Integer
        Get
            Return Me.codDpto
        End Get
        Set(ByVal value As Integer)
            Me.codDpto = value
        End Set
    End Property

    Public Property _codOrgano() As Integer
        Get
            Return Me.codOrgano
        End Get
        Set(ByVal value As Integer)
            Me.codOrgano = value
        End Set
    End Property

    Public Property _codDiagnostico() As Integer
        Get
            Return Me.codDiagnostico
        End Get
        Set(ByVal value As Integer)
            Me.codDiagnostico = value
        End Set
    End Property

    Public Property _codProtocolo() As Integer
        Get
            Return Me.codProtocolo
        End Get
        Set(ByVal value As Integer)
            Me.codProtocolo = value
        End Set
    End Property

    Public Property _codPaciente() As Integer
        Get
            Return Me.codPaciente
        End Get
        Set(ByVal value As Integer)
            Me.codPaciente = value
        End Set
    End Property

    Public Property _codPersonal() As Integer
        Get
            Return Me.codPersonal
        End Get
        Set(ByVal value As Integer)
            Me.codPersonal = value
        End Set
    End Property









End Class
